S=1+2X/X^2+3X/X^3+4X/X^4+.......,X>1求VB程序设计

来源：百度知道 编辑：UC知道 时间：2024/07/04 09:54:12
第N项小于10……-5
Private Sub Cmd1_Click()
Dim x As Integer, n As Integer
Dim s As Single, t As Single
s = 1
x = Val(txtX.Text)
n = 1
Do
n = n + 1
t = n * x / x ^ n

Loop
txtS = Str(s)
End Sub
Private Sub Cmd2_Click()
End
End Sub你们直接在空白的地方补充吧

我把题目化简下s=1+2/x+3/x^2…
x应该是一个输入的数字 对吧？？
那。。
Private Sub Form_Load()
Dim x!, s!
x = InputBox("输入一个大于1的数")
s = 1
For i = 1 To 99999999
s = s + i / x
If i / x < 10 ^ -5 Then GoTo out
x = x * x
Next i
out:
Print s
End Sub

后面是第N项小于10的-5次方吗

Private Sub Command1_Click()
Dim s As Double, n As Integer, x As Single
x = Val(InputBox("输入x", "输入x", 0))
n = 1: s = 0
'S=1+2X/X^2+3X/X^3+4X/X^4+.......,X>1求VB程序设计
'第n项为n*x/x^n
Do While n * x / x ^ n > 0.00001
s = s + n * x / x ^ n
n = n + 1
Loop
Print n
Print n * x / x ^ n
End Sub
这样就行了吧！！